unit CustomDesignerFrm;

interface
uses
  Classes, Forms, FR_DESGN, FR_Class;

type
  TCustomDesignerForm = class(TfrDesignerForm)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure PrepareReportDesigner;

implementation

{ TCustomDesignerFrm }

constructor TCustomDesignerForm.Create(AOwner: TComponent);
begin
  inherited;
  Self.wwwfastreportcom1.Visible := False;
end;

procedure PrepareReportDesigner;
begin
  if frDesigner = nil then
  begin
    frDesigner := TCustomDesignerForm.Create(nil);
  end;
end;

end.
